R 中的 | 与 &

`%||%` <- function(lhs, rhs) {
  if (!is.null(lhs)) {
    lhs
  } else {
    rhs
  }
}

x_ok <- function(x) {
  !is.null(x) && length(x) == 1 && x > 0
}

x_ok(NULL)
#> [1] FALSE
#> [1] FALSE
x_ok(1)
#> [1] TRUE
#> [1] TRUE
x_ok(1:3)
#> [1] FALSE
#> [1] FALSE

x_ok <- function(x) {
  !is.null(x) & length(x) == 1 & x > 0
}

x_ok(NULL)
#> logical(0)
#> logical(0)
x_ok(1)
#> [1] TRUE
#> [1] TRUE
x_ok(1:3)
#> [1] FALSE FALSE FALSE
#> [1] FALSE FALSE FALSE